Begin Window "frmMain"	title = "Calculator"	height = 218	width = 168	maxwidth = 500	maxheight = 500	frame = 1	visible = trueEnd Windowevent sub closemnu_click()	msgbox("Hello Click")end subevent sub frmMain_open()	dim m as menu,filemnu as menu	m = me.menubar	filemnu = m.child("tkMNU_File")	dim closemnu as menu	closemnu = new menu	closemnu.caption = "Close Test J"	filemnu.insert(0,closemnu)	closemnu.eventhandler("action",getpointer(closemnu_click))end sub